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by p.p. Sv-affeo 

CHKGPflT. LST 



convert to show* 



iCHR 



fiPLYPftT. LST 



581£ IF UftL(RrGHTJ(SUDflTe»(,N5:),a.M>3e THEN Y1*="13.. ELSE Y14 — 
5Ifc0e ' convert to 5r:ow$ 

51&05 IF VftL (RIGHTS (PYMTS (NX, !),£)) ) 30 THEN Vl« = "19" srifiE V16— i*" 

litis. f?°.?f ' ' ' " . ^> ■;v„r;!.»:i?^.'4?:..5.„..„,3„,. 

4712147 IF YR<31 THEN YR^YR+IM 

470513 FILEDfiV=INT( (365. 55* (YR~1 ) ) + (30. 43» (MO-1 ) ) 

47£4S IF YR<31 THEN Yft=»YR+ll2l0 

4725«. F I LECH Y= I NT ( < 3& 3 . £3» ( y R- 1 ) , + ( 30 . , „o_ 1 J , , 

473.8 "•^=^"^'«^"«'^^=«^*'S,g);:D«=U«U(miD,(T£«P,,ie.,£,,,VR.,flL<m 
47370 IF YR<31 THEN YR«YR+i00 

47380 f-"H-eDfiY=INT<(365.e5*(YR-l)) + (30. 43*(M0-1))+Dfl) 



REVUPflT. LST 



31^50 'reiM fiQure debit aee 

5l0toe! IF YR<3i THEN YR=YR+ii2ii; 

51^165 PPST- (365. aS^iVH-i ) ) + (30. 43^* (MO-l > } +Dfi 



fclLLPPT. LST 

^HOLDINGS?!) ' ^ - > <HOL«INS, c U , 3, 3, . :yR.V«L (RIGHT 

734121 IF YR<31 THEM YR=YR+U2(2i 

7350 I>PY=INT( (365-£5*(YR-l) )4.{3©.43*CmO-t) )*Dfi) 

T^nlinNC.^?!) <HOLDING. ( Z ) , ,DA=VPL (MID* CHOLDINGS < 1 > . 3, £) ) : YR^MPL CRI3H 

46335 IF YR<31 THEN YR=»YR+I00 

46340 DftY=lNT ( (365. £5* (YR-1 ) ) + (30. (MO-1 > > -.-DR) 
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TALYPfiT. IMT 

5fe<3(2i MO=syftL (LEFTS (H0LDIN6t ( 1 ) , £) ) :DA«UAL <MID4 (HOLDING* ( i) , 3, 2) ) j YR=UftL < ftl GHT 

* (H0LDINC5* ( 1 ) , ^) > 

5700 IF YR<31 THEN YR«YR+ilZ!2i 

61S0 MO«=*UflL (LEFT9 (HOLDINGS (1) , £) ) s Dfi«^*ftL <KrI D* (HOLDING? ( 1 ) , 3, £) ) : YR-VfiL (RIGHT 

S (H0UD1N13* ( 1 ) , a) ) 

6130 IF YR<31 THEN YR=YR*'100 

10510 mO=yftL (Lt'F'T'* (HOLDING* C 1) ) i Drt=VPL < WID* (HOLDING* (1 ) , 3, ) : YR=VRL(RieH 

T« {H0LDING»(1),£) ) 

10520 IF YR(31 THEN ,YR=YR+100 

1S480 riO=VftL (LEFTS (HOLDING* (!),£)) :Dfi«UfiL (MID$ (HOLDING* ( 1) , 3, 2) ) :YR=VflL(RieH 

T$ (HOLDINGS ( 1 ) , 2) ) 

15490 IF YR<31 TH^N YR=YR"^-i(i?0 

471ii50 MX = yftL (LEFTS ( INFO$ , £) ) :DX==syPL (MID$ ( INFO* Cfefe) , 3, £) ) : YX-VflL < RIGHT* ( I 

NFO* (&&),c=:) ) 

47105 IF YX(31 THEN YX==YX4-i00 

47800 tOX = VP»L (LEFT^ (INFO* Acfc) , £) ) sDX==VfiL (MID* ( INFO* (66) , 3, £> ) ; YX-VflL v RIGHTS ( I 

WFOt (&&) , £) ) 

47£i05 IF YX<31 THEN YX=YX-vie)0 



BUS I PAT. LST 

14715 MO=VftL (LEiFT* iCKPMTt, a) ) sOQ=VAL (MID* (CKPMT*, 4, £) ) ; YR=ypiL ( R IGHT* CCKPMTS, S> 
>sXF RIGHT* (CKPMT*, £><> " " THEN IF YR<31 THEN YR«YR+100 
14720 Pl=> (3fe5. £5*(YR-1) ) + (30. 43* (MO-1) ) +Dft 

14723 MO=:UAL (LEFT* (LSTPMT*, £) > sDfi=UAL(MIDS <LSTPMT$, 4, £) ) : YR=VAL ( RI GHT* (LSTPMT* 
,£)>iIF RIGHT* (LSTPMT*, £)(> " " THEN IF YR<3l THEN YR=YR+ie0 
14730 P£"=' (365. £5* (VR-l ) ) + <3B. 43* (MO-1 ) ) +Dft 

17700 MO=UfiL (LEFT* (INFO* (fe6) , £) ) :DA=VttL (MID* ( INFO* ( C^f;> ) , 3, £ ) > : YR=yAL ( RIGHT* ( i 

NFO* (£^6; , £) ) 

17710 IF YR<31 THEN YRi^yR+100 

18100 MD^^VRL (LEFT* < INFO* (66) , 2) ) :Dfl«VHL (MID* ( INFO* (66) , 3, £) ) : YR=\^ AL ( RIGHT* < I 

NFO* (£.&) , £) ) 

18110 IF YR<31 THEN YR==YR+100 

£0720 MO=yfiL(LEFT* (HOLDING* ( 1) , £) ) :Dft=yAL<MID* (HOLDING* < 1 ) , 3, £> ) !YR=VPL(RIGH 

T* (HOLDING* (1),£) > 

£075:5 IF YR<31 THEN YR=YR-^-100 

47050 MO=VfiL (LEFT* ^ HOLDING* ( 1 ? , £) ? lDfl=VPL (MID* (HOLDING* ( I > , 3, £> > : YR=VrtL ; RIGHT* 
(HOLDING* ( I ) , £) ; 

47055 IF YR<3i THEN YR=YR+100 

47200 ' tiguv^e in«(c:tiv© period 

47210 CKPlY-0 

47220 IF INF0*(63)<>" " THEN LSTD9TE*==INF0* (63) ELSE LSTDnTE*=lNFO* ( 66 ? 

47330 MOa^yAL (LEFT* (L3TDATE*, £) ) : DA2«'yAL (MID* vLSTDATE** 3, £> > : YR£-VPL ( R IGHT* (LSTD 
ATE*, £> ) 

47240 IF YR£<31 THEN YR£=sYR£+100 »* 

47£S0 LST0AY=1NT ( (36S- £5* (Y^^3--l ) ) + (30, 43» (MOci-l ) ) -i-DAS+Pt^RlUD) 
A7£60 If- L=iTDAY> =1NT (TODAY) THEN RETURN 
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INSRPOT.LST 

7041ZI IF- yfiL(MID*(ReCORO$<l), 17,a) )>3l?i THEN Yl$ = "19" £:lS£ Y1*=:"£:0" 
7(2143 SHOW$ a)=niD$ (RECORD* (ii , ; 1 , t> ) +Y 1 5 ^^ni D$ ( RECORD* ( 1 > , 17, a) 

511515 ' compute tiMe 

51160 M0=VPL(MID4 ( TEtriPREC* ( IV.) , fe, £) :Dfl=gAL(MID$ (TEMPREC^ < I'/. ) , 8, £) ) : YR=VPL (MID$ ( 

TEMPRECi(I>:), H2i,E) ) 

51165 IF YR<51 THEN YR"YR+1(S0 

31170 DPY-INTC (3&5. £5*<YR-1) ) + t3ia, 43*(M0-1) )^'^jp) 



CLPIMREy.LST 

8600 M0=VRL(MID4(ST0^^E£li,8,e} ) : DQ=ypL (MID* (STORED, IC.S) ) : YR=UPL (MID$ (STORE*. 12 
6610 IF YR<31 THEN YR=YR+100 

lasaS MO^VflLCMIDi <STORE*, 8, £) ) :Dfi=VAL(MID9 (STORE*, IIP, 2) > :YR«ypL (MID* (STORE*. 12 
,£)) 

10930 IF YR<31 THEN YR=YR+liS0 

51100 M0i=yALCLEFT*(DTiS,2)) : Dftl^VflL (MID* CDT 1 3, £ ? ) i YRl «UftL < RI SHT* (DTI S, £J ) 
51105 IF YRK31 THEN YR1=YR1 + 1«0 

51110 STDflY« (365. £5» CYFn -1 ) ; + CjC. 43* (MO 1-1 ? ) +Dftl 

51120 Ma£i=VPL(LEFT* CDT2*, 2) ) : DP£='virtL (M ID* (DT24- 3, £) ) : YR2*VAL ( RIGHT* (DT24, 2) ) 
51125 IF YR2(31 THEN YRiL-='YR2+100 

51130 FINDAY=<;3&3.25*(tR£-1) ) + (30. 43*(M02-1 j ) +Dfl2 



STftTPflT, LST 

6130 MO=yAL <LEFT* (HOLDING* ( 1 ) , 2) ) : Dft=VPL (MID* (HOLDING* < 1 ) , 3, 2) ) : YR-^yPiL ( RIOHT 

i (HOLDING* (i),2>) 

6140 IF YR<31 THEN YR=Yk»-100 ' 

15730 MO«yflL (LEFTS (HOLDING* ( 1) , 2) ? sDR-VPL (MID* (HOLDING* ( I ) , 3, 2) ) :YR«UPL(ftIGH 

T$ (HOLDING* <t), 2)) 

15735 IF YR<31 THEN YR=YR+i00 

16530 MO«yPL (LEFTI* (HOLDING* a ) , ;= ) ) sDP^VPL (MID* (HOLDING* <1 > , 3, 2) ) : YR=VAL(RI6H 

T$ (HOLDING* (1>, 2)) 

18535 IF YR<31 THEN YR=YR+100 



